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CONTROL DATA 6400/6500/6600 COBOL 

The COBOL language is designed to simplify the programming of 
business data processing operations; it produces easily modifiable 
source programs that result in shorter program development time and 
low program conversion costs. COBOL source and object programs 
run under the control of SCOPE Version 3.3. 

COBOL for the CONTROL DATA^ 6000 series is upwards compat- 
ible with ANSI COBOL and also with 3000 COBOL. 



Special Features: 

Mass Storage input and output including Indexed Sequential file 
processing 

SORT verb sorts files within COBOL program 

Automatic table search using index names and the SEARCH and SET 
statements 

Report Writer to produce printed reports automatically, or report 
page may be produced by user with LINAGE clause and WRITE 
statement 

Full arithmetic facility including: 
18-digit operands 
DIVIDE with REMAINDER 
COMPUTE with exponentiation 
CORRESPONDING option with ADD and SUBTRACT 

Segmentation and overlay of object program 

ENTER and CALL verbs, Common-Storage section provide com- 
munication with separately compiled COBOL programs and also 
with FORTRAN or COMPASS programs 

COPY and INCLUDE provide access to COBOL source library 

RERUN provides memory dumps with restart at specified checkpoints 

Remote Interactive capability for remote terminal input/output 



PROGRAM EFFICIENCY HINTS 

To reduce key punching: 

Use abbreviations where permitted. 

Use PIC clause rather than SIZE, CLASS, USAGE clauses. 

To increase compilation efficiency: 

Restrict data and paragraph names to 9 characters or less. 
Eliminate unnecessary paragraph names. 
Reduce forward references. 

To increase execution efficiency: 

Use same size sending and receiving fields. 

Make table and item sizes a multiple of 10 characters. 

Reduce subscripting. 

Subscript with literals instead of variables. 

Use COMPUTATIONAL-1 items or index-names as subscripts. 

Use COMPUTATIONAL-1 items as arithmetic variables. 

Restrict arithmetic items to 9 digits or less. 

Use standard labels. 

Use SYNCHRONIZED RIGHT clause for data frequently 
referenced. 

Use SAME RECORD AREA to save moves; SAME AREA to 
save space. 



COBOL NOTATION 

[ ] Enclosed elements are optional. 
| f Only one element may be selected. 
. . . Repeat preceding bracketed material as needed. 
COBOL words have preassigned meanings and appear in capitals. 
COBOL words not underlined may be omitted. 
Terms in small letters are supplied by the programmer. 
Punctuation and special characters are required where shown. 



f 



IDENTIFICATION DIVISION 

IDENTIFICATION DIVISION. 



PROGRAM-ID . program-name. 
[ AUTHOR , [comment-sentences.] ] 
[ INSTALLATION , [comment-sentences.] ] 
[ DATE-WRITTEN , [comment-sentences.]] 
[ DATE-COMPILED , [current-date supplied by compiler.] ] 
[ SECURITY , [comment-sentences.] ] 
[ REMARKS , [comment-sentences.] ] 



ENVIRONMENT DIVISION 



ENVIRONMENT DIVISION . 
CONFIGURATION SECTION . 
SOURCE-COMPUTER. 



format 1 : 

[fliteral-1 
REPLACING <word-1 > BY 
(identifier-1 ) 



!literal-2 
word-2 
identifier-2 



Rliteral-3 
word-3 
identifier-3. 



!literal-4 
word-4 
identifier-4 



)]-]■ 



(6400 
<6500 
16600 



OBJECT-COMPUTER , 
format 1 : 



COPY library-name 



!literal-2 
word-2 
identifier-2 



r (literal-1 

REPLACING <word-1 
I ( identifier-1 



(~niteral-3 
< word-3 
L I identifier-3 



!literal-4 ) 
word-4 > 
identifier-4; 



-] 



!6400) 
6500) 
6600 ) 



[ SEGMENT-LIMIT IS priority-number] . 



SPECIAL-NAMES. 



COPY library-name 



/literal-1 
REPLACING | word- 1 

v identifier- 1 



{literal-2 
word-2 
identifier-2 



"/literal-3 
< word-3 
-' identifier-3 



/literal-4 
BY jword-4 
' identifier-4 



c 

1 

a-i 4 



format 2: 



SWITCH integer- 1 

( ON STATUS \S switch-status-name 1 
) [OFF STATUS IS switch-status-name-2] 

( OFF STATUS IS switch-status-name-2 
[ON STATUS IS switch-name-1 ] 
[non-numeric-literal [S mnemonic-name-1 ] ... 
[implementor-name IS mnemonic-name-2] ... 

[ CURRENCY SIGN IS literal] 

[ DECIMAL-POINT IS COMMA ] 

[ CONSOLE IS mnemonic-name-3] 

[ TERMINAL JIS mnemonic-name-4] . 

INPUT-OUTPUT SECTION . 

FILE-CONTROL. 

format 1 : 



COPY library-name 



[t literal-1 
REPLACING <word-1 
' identifier-1 



/ literal-2 \ r/literal-3 
< word-2 1 \ word-3 
' identifier-2 J LI identifier-3 



{literal-4 \-i 
word-4 i 
identifier-4/ J 



W 



format 2: 

SELECT [ OPTIONAL ] file-name-1 [ RENAMING file-name-2] 

ASSIGN TO implementor-name-1 [FOR MULTIPLE {hEtf}] 

[ RESERVE {^ALTERNATE [{^J}] 

[ FILE-LIMIT IS literal-1 ] 

[ ACCESS MODE IS {™*}] 

[ PROCESSING MODE IS SEQUENTIAL ] 
[ { J^OT.C } KEYISdata-name-2] 
[SELECT...] . 
I-O-CONTROL. 

format 1 : 

(literal-1 

BY 



[(literal-1 ) 
REPLACING <word-1 > 
' identifier- 1; 
["(literal-3 ) (literal-4 )T ~j 

<word-3 > BY <word-4 > ... . 
L(identifier-3; I tdentif ier-4 ) J J 



!literal-2 ) ["( literal-3 J (literal-4 \1 

word-2 > 
identifier^) 



format 2 



r ( END OF REEL 

[ RERUN [ON file-name-1] EVERY j integer- 1 RECORDS 
-i ' condition-name 

OF file-name-2 

[SAME R^?I rd }] AREA F0R ^'le-name-3,file-name-4 
[file-name-5] .. .1 

^ MULTIPLE FILE TAPE CONTAINS file-name-6 
[ POSITION integer-2) [file-name-7 
[ POSITION integer-3]]..] 



PICTURE DESCRIPTION CODES 

Data Characters 

A Alphabetic character 
X Alphanumeric character 
9 Numeric character 

Operation Symbols 
S Signed 

V Assumed decimal point location 
P Assumed decimal point scaling position 

Replacement Characters 

Z Leading zeros replaced by blanks 

* Leading zeros replaced by * (check protection symbol) 

Insertion Characters 

$ Dollar sign; floating when more than one (dollar sign may be 
replaced by currency sign defined in SPECIAL-NAMES) 

Comma 
/ Slash (instead of comma) 

Actual decimal point 

B Blank 

Zero 

Minus sign when item is negative, blank when positive; 
floating when more than one 

+ Plus sign when item is positive, minus when negative; 
floating when more than one 

CR Credit symbol when item is negative, blank when positive 

DB Debit symbol when item is negative, blank when positive 



I 



DATA SPECIFICATIONS 





File 
Section 


Common and 

Working 

Storage Sections 


Cons 
Sect 


tant 
ion 


01 


g 

r 



u 
P 


e 
I 

e 
m 


77 


01 


g 

r 



u 
P 


e 
I 

e 
m 


77 


01 


g 

r 



u 
P 


e 

I 

e 
m 


REDEFINES 


I 






















SIZE 






R 


R 






R 


R 






R 


USAGE 
























CLASS 








R 








R 








OCCURS 


I 






I 


I 






I 


I 






POINT LOCATION 


















J 






SIGNED 


















J 






JUSTIFIED 


















J 






SYNCHRONIZED 


















J 






PICTURE 


















J 






Editing Clauses 
















I 


J 




I 


COPY 
























VALUE 


K 


K 


C 










V 






V 


FILLER 


I 






I 


I 






I 


I 







C Legal only in defining values for condition names 

I Illegal 

R Required if PICTURE is not used 

blank Optional 

V Required 

J Legal only on elementary 01 items 

K Documentary only 



DATA DIVISION 

DATA DIVISION . 
[ FILE SECTION. ] 
[ COMMON-STORAGE SECTION .] 
[ WORKING-STORAGE SECTION .] 
[ CONSTANT SECTION .] 
[ REPORT SECTION .] 



File Description Entry (File Section Only) 

format 1 : 



FD file-name COPY library-name 



iliteral-2 
word-2 
identifier-2 



!literal-1 \ 
word-1 > 
identifier-l' 



Yliteral-3 ) /literal-4 |~| "I 

]word-3 | BY jword-4 > ... . 
.(identifier-3; ( identifier-4/J J 



format 2: 
FD file-name 



K BINARY n 



[I 



HIGH ) 

low > density 
hyper) 



[ FILE CONTAINS ABOUT integer-1 RECORDS ] 

r- ( RECORDS \1 

[BLOCK CONTAINS [integer-2 TO] integer-3 t^A^TERSfJ 

[ RECORD CONTAINS [integer-4 TO] integer-5 CHARACTERS 

r |RECORp-MARK\ll 

DEPE NDING ON <~ ; > 

L t data-name- 1 J J J 

I STANDARD ^ 

LABEL {^8^ 5 ARE } te^ 

( record is ) (- 1 

v data-name-2 ' 



If label records are STANDARD: 

VALUE OF { j§ ENTIFICATI0N } IS {^-name-sl 
[DATE-WRITTEN ,S {SnLe-4}] 
[ eDITION-NUMBER IS fc^}] 
[ REEL-NUMBER isl^-'nle-s}] 

[ retent IO n-cycle is {™ me . 7 }] 

If label records are data-name-2: 

[ value OF ENDING-TAPE-LABEL-IDENTIFIER 
L |S Hiteral-6 )1 
1data-name-8jj 



[linage is {jss£-i} y*™\ 



( [{ rEPQRt 1 s ARE } report-name-1 [report-name-2] ...] 
[ SEQUENCED ON data-name-1 1 [data-name-12] . . . ] . 

Sort File Description Entry (File Section Only) 

format 1 : 



SD file-name COPY library-name 



( literal-1 ) 
REPLACING < word-1 > BY 
( identifier- 1J 



("literal-2 
^word-2 
(identifier-2 



piteral-3 } (literal-4 

<word-3 } BY <word-4 
(identifier-3) (.identifier-4 



format 2: 

SD file-name 

[ FILE CONTAINS ABOUT integer-1 RECORDS ] 

[ RECORD CONTAINS [integer-2 JO] integer-3 CHARACTERS] 
[DATA { BB3BB §ARE} data-nama-1 [da,a-na™-2] ...] . 



Record Description Entry (File, Common-Storage, Working-Storage 
and Constant Sections) 



level-number data-name-1 [REDEFJNEJrdata-name-2] 
COPY data-name-3 [FROM LIBRARY ]. 



level-number j f^ 3 ™" 1 } [ REDEFINES data-name-2] 



S f ALPHABETIC 
NUMERIC 
ALPHANUMERH 
AN 



^/CHARACTERS)]! 

CQMP 

COMPUTATIONAL 

COMP-1 
riiCArc ici / COMPUTATIONAL-1 
[ ^^ ,S] < COMF~2 

COMPUTATIONAL-2 

DISPLAY 

INDEX 

I OCCURS integer-1 [TO integer-2] TIMES 
[ DEPENDING ON data-name-1] 
R BtiiS; } KEY ^a,a-n am e-4 [d«™6]...] 
[ INDEXED BY index-name-1 [index-name-2] ...] 

[ SIGNED ] 

[ SIGN IS data-name-6] 

T POINT LOCATION IS {^f^-p} integer-5 PLACEs] 



r / SYNC \ /LEFT \ ~| 

L 1 SYNCHRONIZED ) ( RIGHT ) J 

[ VALUE ISIiteral-1] 

[ { ^TURe } 13 ^^-^^ 



) CHECK PROTECT f [LEAVING integer-6 PLACES] 

) FLOAT DOLLAR SIGN ( 

( FLOAT CU R R ENCY SIGN ) 



r rewz | I 

L ( BLANK WHEN ZERO J J 



format 3: 

66 data-name- 1 RENAMES data-name-2 [ THRU data-name-3] . 

format 4: 

88 condition-name { valUES ARe} literaM [ THRU "teral-2] 
[literal-3 [ THRU literal-4] ...]. 

Report Description Entry (Report Section only) 

format 1 : 

RD report-name [WITH CODE mnemonic-name-1] 



COPY library-name 



( literaM ) 

REPLACING < word-1 > 

(identifier-1; 



(literal-2 \ r/ literal-3 \ (literal-4 \~\ 

Jword-2 \ Uword-3 > BY Jword-4 > . 
(identifier-2) [_( identifier^) (identifier-4*J 

format 2: 

RD report-name [WITH CODE mnemonic-name-1] 

(data-name-1 [data-name-2] ... 
( CONTROL IS ) J final 
(CONTROLS ARE/ J FINAL data-name- 1 [data-name-2] . 



La^,- ( LIMIT IS \ . , ( LINE \ 

L PAGE i LIMITS ARE? mte9er - 1 J UNES / 

[ HEADING integer-2] [ FIRST DETAIL integer-3] 

[ LAST DETAIL integer-4] [ FOOTING integer-5]J 

Report Group Description Entry (Report Section only) 

format 1 : 
01 [data-name-1] COPY data-name-2 [FROM LIBRARY ] 



!literal-1 J ( literal-2 

word-1 > BY <word-2 
identifier- 1 / ' identif ier-2 



Hiteral-3 \ (literal-4 

<word-3 > BY <word-4 
_ ' identif ier-3 / \ identif ier-4 



format 2: 

01 [data-name-1] 



/ VIC 

I] ■-]■ 



[CLASS IS] 



f ALPHABETIC 

) NUMERIC 

) ALPHANUMERIC 



[' 



r / integer- 1 

LINE NUMBER IS | PLUS integer-2 
L ( NEXT PAGE , 

! integer-3 
PLUS integer-4 
NEXT PAGE 



L.,- IP . , c (CHARACTERS)! 



[[ USAGE IS] DISPLAY ] 



REPORT HEADING 

RH 

PAGE HEADING 

PH 

OVERFLOW HEADING 

OH 
( CONTROL HEADING ) fdata-name-3) 
ICH / I FINAL / 

DETAIL 

DE 
( CONTROL FOOTING ! fdata-name-4) 
\CF / (FINAL J 

OVERFLOW FOOTING 

oy 

PAGE FOOTING 

Pf_ 

REPORT FOOTING 

RF 



Report Element Description (Report Section only) 

level number [data-name- 1] 
( ALPHABETIC 



[CLASS IS]- 



I NUMERIC ( 

| ALPHANUMERIC ( 



(AN 



[ COLUMN NUMBER IS integer-1] 

/ ZERO SUPPRESS \ 

J CHECK PROTECT ( 

\ FLOAT DOLLAR SIGN l 
( FLOAT CURRENCY SIGN \ 

'( BLANK WHEN ZERO)] 
.IBWZ (J 

[GROUP INDICATE] 
[(if^l^HT] 

[( integer-3 
LINE NUMBER IS < PLUS integer-4 
( NEXT PAGE 



[ LEAVING integer-2 PLACES] 



[ { I^TURe } 'S character-string] ^ 

T POINT LOCATION IS 1^^- 1 integer-5 PLACEsl ^ 



[ nr .r*r--r ~*. ( data-name-2 Y] 
^^ 0N {fjnal U 

[SIGNED] 

[ SIGN IS data-name-3] 

T c, 7C .c- + a JCHARACTERSH 

L ^ ilSmte9er - 6 \ DIGITS )\ 

(SELECTED data-name-4 



SOURCE IS 



i SELl 
LIN 
PAG 



PAGE-COUNTER 



' SUM data-name-5[data-name-6] . . . [ UPON data-name-7] ' 
K VALUE IS literal-1 

[[ USAGE IS] DISPLAY ]. 

TYPE clause allowed if level 01 

NEXT GROUP clause allowed if level 01 



USAGE SPECIFICATIONS 



Element 


Upper Limit 


data-name 


30 characters, 
5 levels of qualifications 


elementary item/literal 


255 characters/digits 


PERFORM nesting 


15 levels in separate overlays, 
no limit in main overlay 


level numbers 


01-49,66,77,88, FD, RD, SD 


OCCURS... DEPENDING ON 


1 per record description 


library copies 


5 levels of nesting 


ACCEPT items 


80 characters; 

40 characters from console 


PICTURE clause 


30 symbols 


arithmetic operand 


18 digits 


GO TO statement 


100 procedure names 


ALTER statement 


100 procedure names 


DISPLAY items 


no limit 


ENTER parameters 


no limit 


Total files, I/O devices, 
and reports 


53 


Total procedure names 


depends on field length 


Total external references 


depends on field length 



VALID MOVE OPERATIONS 



\ Rec. 
X Field 
Sources 
Field \ 


Elem. 
Binary 


Elem. 
Alpha 


Elem. 
BCD 
Num. 


Elem. 
AN 


Elem. 

Edit 

Num. 


Elem. 

Edit 

AN 


Group 
AN 


Elem. 
Binary 


Num. 
Bin. 


X 


Conv. 
Num. 


Conv.t 
AN 


Conv. 
Edit 


Conv.t 

AN- 

Edit 


TD 

AN 


Elem. 
Alpha 


X 


AN 


TD 

AN 


AN 


X 


AN- 
Edit 


AN 


Elem. 
BCD Num. 


Conv. 
Bin. 


TD 

AN 


Num. 


ANt 


Edit 


AN- 
Edit 


ANt 


Elem. 
AN 


X 


TD 

AN 


Num. 


AN 


Edit 


AN- 
Edit 


AN 


Elem. 
Edit Num. 


X 


TD 

AN 


X 


AN 


X 


AN- 
Edit 


AN 


Elem. 
Edit AN 


X 


TD 

AN 


X 


AN 


X 


AN- 
Edit 


AN 


Group AN 


TD 
AN 


TD 

AN 


TD 

AN 


AN 


X 


AN- 
Edit 


AN 


Group 
Binary & 
Mixed 


TD 

AN 


TD 

AN 


TD 

AN 


TD 

AN 


X 


TD 

AN- 

Edit 


TD 

AN 


Zero 


Num. 
Bin. 


X 


Num. 


AN 


Edit 


AN- 
Edit 


AN 


Literal & 
Fig. Cons. 
AN 


X 


TD 

AN 


X 


AN 


X 


AN- 
Edit 


AN 


Literal 
Num. 


Conv. 
Bin. 


X 


Num. 


ANt 


Edit 


AN- 
Edit 


AN 



t Valid only when source is integer; others PD. 

Any move to a binary or mixed group is treated as an alphanumeric 
move; a precautionary diagnostic is issued. 

A move to a figurative constant or literal is illegal. 



W 



X Illegal 

AN Alphanumeric 

AN-Edit Alphanumeric edited 

Conv. Conversion prior to move 

Edit Numeric edited 

Num. Numeric 

Num. Bin. Numeric binary 

TD Trivial diagnostic issued 



PROCEDURE DIVISION 

PROCEDURE DIVISION- 



DECLARATIVES. 



Section-name SECTION , declarative-sentence. 
Paragraph-name, sentence-1 [sentence-2] . . . 
END DECLARATIVES - 
ACCEPT identifier-1 [ FROM mnemonic-name-1] 

.^^ / identifier-1 \ f/ identifier-2) 1 . , . t . r^^...,^^^, 
ADD <.. ., > ,. ,. \ ... identifier-n ROUNDED 
Uiteral-1 ; L lhteral-2 J J 

[ON SIZE ERROR imperative-statement] 

ADD i identifier -U nidentifier-2) "j ( GIVING ) 
****** 1 literal- 1 J LUiteral-2 I ""J \jO f 

identifier-m [ ROUNDED] [identifier-n [ ROUNDED] ] . . . 

[ON SIZE ERROR imperative-statement] 

Ann ( identifier- 1\ r/identifier-2\ "| T ^ /identifier-3\ 
*2S L eraM } Hli«eral-2 ) -J ^ Wral-3 } 

GIVING identifier-m [ ROUNDED ] [identifier-n [ ROUNDED ] ] ... 

[ON SIZE ERROR imperative-statement] 

^ SestoNDINq } ^ntifier-, TO iden.ifier-2 [ROUNDED] 

[identifier-3 [ ROUNDED ] ] . . . 

[ON SIZE ERROR imperative-statement] 

ALTER procedure-name- 1 TO [ PROCEED TO ] procedure-name-2 
[procedure-name-3 TO [ PROCEED TO ] procedure-name-4] ... 

™~, im) H H IS 085 }] 

[•—to [—{ir^}]] - 



COMPUTE identifier-! [ ROUNDED ] [identifier-2 [ ROUNDED ] ] 



(literal \ ^| 

^arithmetic-expression; 1 

' identifier-3 * ) 



I FROM \ 

( equals ) 

[ON SIZE ERROR imperative-statement] 

/literal-1 



/ COPY \ ... 
ii^cTuDEf llbrar V-name 



i literal-1 \ 
word-1 > BY 
identifier-1; 



iliteral-2 
word-2 
identifier-2^ 



\ r/literal-3 ) / literal-4 Y\ "1 jfl 

> <word-3 > BY jword-4 > ... fl 

7 L'identifier-3* lidentifier-4'-l J ^^ 



[ UPON mnemonic-name] 

DIVIDE l' dent ' f ' er "H INTO identifier-2 [ ROUNDED ] 

lhteral-1 J 

[identifier-3 [ ROUNDED ] ] . . . 

[ON SIZE ERROR imperative-statement] 

r*..,, n r- /identifier-l\ <BY \ j identifier-2 \ _,..,.._ .. ... _ 
Bl^Wal-1 MiW Wa.-2 } GJVING .dent.f.er-3 

[ ROUNDED ] [identifier-4 [ ROUNDED] ] .... 
[ON SIZE ERROR imperative-statement] 

D.V.DE i identifier -H /iY \ (identifier^ 

(literal-1 / UNTO / lliteral-2 f 

GIVING identifier-3 [ ROUNDED ] 

REMAINDER identifier-4 

[ON SIZE ERROR imperative-statement] 

ENTER COBOL . 

ENTER LINKAGE . 

( ENTER ) r 

Ipai i f L language— name] routine-name 

[ USING parameter-list] . 



K^ 



EXAMINE identifier-1 
TALLYING 



ALL 

LEADING 
UNTIL FIRST . 

ALL 



literal-1 [ REPLACING BY 
literal-2] 



(ALL | 

REPLACING { LEADING > literal-3 BY literal-4 

( [UNTIL ] FIRST ) 

EXIT. 

( EXIT PROGRAM .) 
( RETURN . ) 

GENERATE identifier-1 
GO TO [procedure-name- 1] 
GO TO procedure-name-2 [procedure-name-3 ...] 
DEPENDING ON identifier-1 

ir- _.-.• ■ rTlir . n f statement- 1 ) 

IFcond.t.ona.-express.onflHEN] { NEXTSENTENCE } 

r-rucwi ( OTHERWISE ) /statement-2 \ 

lJMm] lELSE / JNEXT SENTENCED 



Conditional expressions include: 



IS [ NOT ] 



{identifier-^ 
literal-1 
formula-1 



GREATER THAN 

GR 

> 

LESS THAN 

J — 

' < 

GREATER-EQUAL TO/ 

I GQ 
LESS-EQUAL TO 

kQ 

EQUAL TO 
EQ 



IIS UNEQUAL TO 
I EQUALS 

EXCEEDS 

ISNQ 
IISNGR 
\lSNLS 



!identifier-2J 
literal-2 > 
formula-2 J 



( POSITIVE ) 
\ IS [NOT] <NEGATIVE[ 

' (zero ) 



\formula-3 

(NUMERIC 



identifier-4 IS [ NOT ] 



(ALPHABETIC/ 



[NOT] i con dition-name 1 
(switcn-status-namej 



( ALL 



.It 

: ) literal-1 
' identifier- 



CORR 
CORRESPONDING 



-1 

identifier-3 [identifier-4] 
jidentifier-1 



> identifier-2 i 

( 



TO 



BY identifier-2 [ ROUNDED ] 



[identifier-3 [ ROUNDED ] ] . . . 

[ON SIZE ERROR imperative-statement] 

MULTIPLY UTTf" 1 } BY ft^T 2 ) 

Uiterai-1 J — (hteral-2 ) 

GIVING identifier-3 [ ROUNDED ] 

[identifier-4 [ ROUNDED ] ] . . . 

[ON SIZE ERflOR imperative-statement] 

NOTE character-string. 

.*,n,, T *-. « ff REVERSED \\ 

^^ f " e - name - 1 llwiTH NO REWIND *] 

[\., „ ["( REVERSED H "I 

[f,le-name-2 [JwiTH NO REWIND /] -J 
' OUTPUT file-name-3[WITH NO REWIND ] 

[file-name-4[WITH NO REWIND ]] ... 



INPUT-OUTPUT ) 



-0 S 



f ile-name-5 [f ile-name-6] 



PERFORM procedure-name-1 [ THRU procedure-name-2] 



PERFORM procedure-name-1 [ THRU procedure-name-2] 

|identifier-1| J|MES 
linteger-1 ) 

PERFORM procedure-name-1 [ THRU procedure-name-2] 
UNTIL condition-1 

PERFORM procedure-name-1 [ THRU procedure-name-2] 

literal- 1 
index-n 
identifier-2 



VARYING (!" deX : nam i e - 1 } FROM index-name-2 BY 
\,dent,f.er-1 f ( identi f ie r-2 » ~ 

Q | UNTIL condition-2 l~ AFTER |.'" 



/literai-2 \ ...._.. ... p.--..^ / index-name-3) 
{.. ... „( UNTIL condition-2 AFTER j. , .,. A ) 
lidentifier-3J L I identif ier-4 ) 



/literal-3 



FROM { index-name-4> BY f' tera ' c ) UNTIL condition-3 

)., , r . ,. I — ( identif ier-6 J 

lidentifier-5 



/index-name-5) 



(literal-5 



AFIiB 7 FROM index-name-6} BY 
L lident.f.er-7 / ( iden tif ier-8 J ~ 

} UNTIL conditional 



jliteral-6 
I identif ier-9 



READ file-name- 1 RECORD [ INTO identif ier-1] AT END 
imperative-statement 

READ file-name- 1 RECORD [ INTO identifier-2] INVALID KEY 
imperative-statement 

RELEASE record-name-1 [FROM identif ier-1 ] 

RETURN file-name-1 RECORD [INTO identif ier-1] AT END 
imperative-statement 

SEARCH identifier- 1 [" vARYING J!^ 6 ^ 3 "; 6 " 1 } 
L I identif ier-2 J 

[AT END imperative-statement-1 ] 

WHI.N condign- , { ^^T ' 2 } 



SEARCH ALL identifier-1 [AT END imperative-statement-1 ] 

j imperative-statement-^ m 



SEEK file-name-1 RECORD [WITH KEY CONVERSION ] 

s __ (index-name-11 ffindex-2 ) 1 
I identifier-1 f Llidentifier-2/ '"J 

!index-name-3\ 
identifier-3 > 
literal-1 ) 

SET index-name-1 [index-name-2] . . . 

/UP BY > ridentifier-n 
( DOWN BYJ tliteral-1 J 

SORT file-name-1 ON { ^PENDING 3 } KEY identifier_1 t' dentifier - 2 3 - 

[° N {liiF} KEYide "' ifiw - 3iidentifier - 41 -] 

/ INPUT PROCEDURE IS section-name-1 [THRU section-name-2] l 
F USING file-name-2 J 

( OUTPUT PROCEDURE IS section-name-3[TH RU section-name-4H 
^ GIVING file-name-3 f 

^IBACT {if-;-- 1 } [$%$*}..] FROM identic 

[ ROUNDED ] [identifier-n [ ROUNDED ] ] . . . 
[ON SIZE ERROR imperative-statement] 



^identifier-1^ |~jidentifier-2( ~] CDrwk>l fidentifier-nrn 

\literal-m / 



GIVING identifier-n [ ROUNDED ] 

[identifier-o [ ROUNDED ]] ... 

[ON SIZE ERROR imperative-statement] 



kJ 



^IBACI B ESP0ND , NG } W«tif«.r-1 FROM 

identifier-2 [ ROUNDED ] [ identif ier-3 [ ROUNDED ] ... ] 
[ON SIZE ER ROR imperative-statement] . 



( report-name- 1 [report-name-2] 
L (ALL 



[ file-name 
j INPUT 
USE AFTER STANDARD ERROR PROCEDURE ON^ OUTPUT 

) INPUT-OUTPUT 



s 



- (AFTER 



imsmx — etup}] mi 



( file-name \ 

— ^PROCEDURES! -S Si 

( PROCEDURES * ^ IN p UT -OUTPUT ( 



U OUT 
j INPL 
f l-O 



USE BEFORE REPORTING identifier-! [identifier-2] ... 

USE FOR KEY CONVERSION ON j^= , rx ., n1 \ 
; I file-name- 1 [file-name-2] ... ) 

WRITE record-name-1 [ FROM identif ier-1] 



(.dent.t.er-^ LlNt 
< AFT c R j ADVANCING <integer-1 LINES 



dentifier-2 LINES 
nteger-1 LINES 
mnemonic-name-1 



r AT ( END-OF-PAGE ) . "I 

AT <— — > imperative-statement 



WRITE record-name-2 [ FROM identifier-2] INVALID KEY 
imperative-statement 



COBOL CONTROL CARD 

Ten parameters are used to select compilation options. All are optional 
and may be specified in any order. 

/COBOL. | 

\COBOL(p1,p2,p3.p4,p5,p6,p7,p8,p9,plO)/ l comments J 



p1 (Source Input) 


absent \ 

1 

1 = input) 


INPUT assumed 






1 = fn 


source input on file fn 


ii 


p2 (Binary Output) 


absent \ 

B 

B = LGO) 


relocatable binary file on file 
LGO 


W 




B = fn 


binary output on file fn 






B =0 


suppress binary output 




p3 (List) 


absent* 


normal listing on OUTPUT 






LX 
LR 
LC 
LO 

LM 


extended diagnostics 
cross reference pointers 
copy from library 
object code in octal 
data map 






L = fn 


output on file fn 






L = 


suppress list output 




p4 (Source Library) 


absent } 

s 

s = colib; 


source library from file COLIB 


• 




S = fn 


from file fn 





p5 (Subcompile) 



suppresses all data division 
binary output except from 
working and constant storage 



p6 (Overlay Binary) 



OB 

OB = LG02 



> binary output on LG02 

binary output from overlay 
segments put on file fn 



p7 (EDITLIB) E = fn add object code to system 

library using EDITLIB 

p8 (ASCII Collating) U use ASCII collating sequence 

p9 (Tape Sort) T sort requests tape sort 

p10 (BCOMMON) H BCOMMON replaces blank 

common as buffer area 



25 



COBOL CODING FORMAT 



1 - 6 
7 



73-80 
Sequence number 



Sequence number 

Hyphen for continuation of words and/ 
or literals 

Division name 

Section name 

Paragraph name 

File description 

Record description level number 

Record description data name 

First sentence of a paragraph 

File name 

Continuation of a data description or a 
sentence 

Identification, optional 

Optional, checked by the processor if 
used 



Hyphen 



Indicates continuation of a word from 
the preceding line 



Division name Terminated by period, remainder of line 

is blank 

Section name Followed by optional priority number, 

terminated by period, remainder is blank 

Paragraph name Terminated by period, and followed by 
at least one blank before text begins 

File Description FD or SD followed by file name and at 
least one blank 

Record Description Level number followed by at least one 
blank and data name 



First Sentence Begins in or after column 12. Spaces 

may be used freely to avoid splitting a 
word. If a word is split, a hyphen must 
appear in column 7 of the next line. 



COBOL SOURCE DECKS 




COBOL COMPILATION 




EXECUTION 
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EXECUTION WITH SEGMENTATION 



empty record = 
end of loader 
information 




LIBRARY UPDATE 



(end of job) 




COBOL(S=SCRLIB,B=0,LOC) 



C0PYCL(0PL=C0BB,C=SCRL1B) 



/ EDITSYM(OPL=LIBA,NPL=COBB,L=COLIST) 



/ JLB,T128,CM55000. 



JL_ 



J 



COBOL RESERVED WORD LIST 

'indicates word not implemented in 6000 COBOL. 



m 



ABOUT 


CODE 


ACCEPT 


COLUMN 


ACCESS 


COMMA 


ACTUAL 


COMMON-STORAGE 


ADD 


COMP 


'ADDRESS 


COMP-1 


ADVANCING 


COMP-2 


AFTER 

ALL 

ALPHABETIC 


COMPASS 


COMPUTATIONAL 


ALPHANUMERIC 


COMPUTATIONAL-1 


ALTER 


COMPUTATIONAL-2 


ALTERNATE 


COMPUTE 


AN 


CONFIGURATION 


AND 


CONSOLE 


*APPLY 


CONSTANT 


ARE 


CONTAINS 


AREA 


CONTROL 


AREAS 


CONTROLS 


ASCENDING 


'CONVERSION 


ASSIGN 


COPY 


AT 


CORR 


AUTHOR 


CORRESPONDING 




CURRENCY 


BEFORE 




BEGINNING 


DATA 


BEGINNING-FILE-LABEL 


DATE-COMPILED 


BEGINNING-TAPE-LABEL 


DATE-WRITTEN 


BINARY 


DE 


*BITS 


DECIMAL 


BLANK 


DECIMAL-POINT 


BLOCK 


DECLARATIVES 


BWZ 


•DEFINE 


BY 


DENSITY 




DEPENDING 


CALL 


DESCENDING 


CF 


DETAIL 


CH 


DIGIT 


CHARACTER 


DIGITS 


CHARACTERS 


DISPLAY 


CHECK 


DIVIDE 


CLASS 


DIVIDED 


*CLOCK-UNITS 


DIVISION 


CLOSE 


DOLLAR 


COBOL 


*DOWN 



I 



EDITION-NUMBER 


*HASHED 


ELSE 


HEADING 


END 


HIGH 


END-OF-PAGE 


HIGH-VALUE 


ENDING 


HIGH-VALUES 


ENDING-FILE-LABEL 


*HOLD 


ENDING-TAPE-LABEL 


HYPER 


ENDING-TAPE-LABEL-IDENTIFIER 




ENTER 


ID 


ENTRY 


IDENTIFICATION 


ENVIRONMENT 


IF 


EOP 


IN 


EQ 


INCLUDE 


EQUAL 


INDEX 


EQUALS 


INDEXED 


ERROR 


INDICATE 


EVERY 


INITIATE 


EXAMINE 


INPUT 


EXCEEDS 


INPUT-OUTPUT 


EXIT 


INSTALLATION 


EXPONENTIATED 


INTO 


FD 

FILE 

FILE-CONTROL 


INVALID 
1-0 

l-O-CONTROL 
IS 


FILE-LABEL 




FILE-LIMIT 

FILE-LIMITS 

FILLER 


JUST 
JUSTIFIED 


FINAL 
FIRST 
FLOAT 


KEY 
*KEYS 


FOOTING 

FOR 

FORMAT 

FORTRAN-R 

FORTRAN-X 

FROM 


LABEL 

LAST 

LEADING 

LEAVING 

LEFT 

LESS 




LESS-EQUAL 


GENERATE 


LIBRARY 


GIVING 


LIMIT 


GO 


LIMITS 


GQ 


LINAGE 


GR 


LINAGE-COUNTER 


GREATER 


LINE 


GREATER-EQUAL 


LINE-COUNTER 


GROUP 


LINES 



I 



LINKAGE 


PAGE 


LOCATION 


PAGE-COUNTER 


LOCK 


PERFORM 


LOW 


PF 


LOW-VALUE 


PH 


LOW-VALUES 


PIC 


LOWER-BOUND 


PICTURE 


LOWER-BOUNDS 


PLACES 


LQ 


PLUS 


LS 


POINT 




POSITION 


^MEMORY 


POSITIVE 


MINUS 


'PREPARED 


MODE 


PRIORITY 


^MODULES 


PROCEDURE 


MOVE 


PROCEDURES 


MULTIPLE 

MULTIPLIED 

MULTIPLY 


PROCEED 
'PROCESS 
PROCESSING 


NEGATIVE 

NEXT 

NGR 

NLS 

NO 


PROGRAM 

PROGRAM-ID 

PROTECT 

PUNCH 

PUNCHB 


NOT 

NOTE 

NQ 


QUOTE 
QUOTES 


NUMBER 
NUMERIC 


RANDOM 
RANGE 


OBJECT-COMPUTER 


RD 
READ 


OCCURS 


RECORD 


OF 


RECORD-MARK 


OFF 


RECORDING 


OH 


RECORDS 


OMITTED 


REDEFINES 


ON 


REEL 


OPEN 


REEL-NUMBER 


OPTIONAL 


RELEASE 


OR 


REMAINDER 


ORGANIZATION 


REMARKS 


OTHERWISE 


RENAMES 


OUTPUT 


RENAMING 


OV 


REPLACING 


OVERFLOW 


REPORT 



I 



REPORTING 

REPORTS 

RERUN 

RESERVE 

RESET 

RETENTION 

RETENTION-CYCLE 

RETURN 

REVERSED 

REWIND 

RF 

RH 

RIGHT 

ROUNDED 

RUN 

*SA 

SAME 

SD 

SEARCH 

SECTION 

SECURITY 

SEEK 

SEGMENT-LIMIT 

SELECT 

SELECTED 

SENTENCE 

SEQUENCED 

SEQUENTIAL 

SET 

SIGN 

SIGNED 

SIZE 

SORT 

SOURCE 

SOURCE-COMPUTER 

SPACE 

SPACES 

SPECIAL-NAMES 

STANDARD 

STATUS 

STOP 

SUBTRACT 

SUM 
'SUPERVISOR 



SUPPRESS 

SWITCH 

SYMBOLIC 

SYNC 

SYNCHRONIZED 

TALLY 

TALLYING 

TAPE 

TAPE-LABEL 

TERMINAL 

TERMINATE 

THAN 

THEN 

THROUGH 

THRU 

TIMES 

TO 

TODAYS-DATE 

TYPE 

UNEQUAL 

UNIT 

UNTIL 
*UP 

UPON 
*UPPER-BOUND 
*UPPER-BOUNDS 

USAGE 

USE 

USING 

VALUE 

VALUES 

VARYING 

WHEN 
WITH 
*WORDS 
WORKING-STORAGE 
WRITE 

ZERO 

ZEROES 

ZEROS 



COLLATING SEQUENCE 



Collating 


COBOL 




Hollerith 


Sequence 


Character 


Display Code 


Punch 


00 


A 


55 


space 


01 


<* 


74 


8-5 


02 


[* 


61 


8-7 


03 


_* 


65 


0-8-5 


04 


= * 


60 


0-8-6 


05 


A* 


67 


0-8-7 


06 


t* 


70 


11-8-5 


07 


i* 


71 


11-8-6 


08 


> 


73 


11-8-7 


09 


>* 


75 


12-8-5 


10 


-i * 


76 


12-8-6 


11 




57 


12-8-3 


12 


) 


52 


12-8-4 


13 




77 


12-8-7 


14 


+ 


45 


12 


15 


$ 


53 


11-8-3 


16 


* 


47 


1 1 -8-4 


17 


- 


46 


11 


18 


/ 


50 


0-1 


19 




56 


0-8-3 


20 


( 


51 


0-8-4 


21 


= 


54 


8-3 


22 


*t 


64 


8-4 


23 


< 


72 


12-0 


24 


A 


01 


12-1 


25 


B 


02 


12-2 


26 


C 


03 


12-3 


27 


D 


04 


12-4 


28 


E 


05 


12-5 


29 


F 


06 


12-6 


30 


G 


07 


12-7 


31 


H 


10 


12-8 



*Not in COBOL character set; may be present in data 
ICOBOL quote character (") is output on printer as// 



COLLATING SEQUENCE (Continued) 



Collating 


COBOL 




Hollerith 


Sequence 


Character 


Display Code 


Punch 


32 


I 


11 


12-9 


33 


V 


66 


11-0 


34 


J 


12 


11-1 


35 


K 


13 


11-2 


36 


L 


14 


11-3 


37 


M 


15 


11-4 


38 


N 


16 


11-5 


39 





17 


11-6 


40 


P 


20 


11-7 


41 


Q 


21 


11-8 


42 


R 


22 


11-9 


43 


]tt 


62 


0-8-2 


44 


S 


23 


0-2 


45 


T 


24 


0-3 


46 


U 


25 


0-4 


47 


V 


26 


0-5 


48 


w 


27 


0-6 


49 


X 


30 


0-7 


50 


Y 


31 


0-8 


51 


Z 


32 


0-9 


52 


:* 


63 


8-2 


53 





33 





54 


1 


34 


1 


55 


2 


35 


2 


56 


3 


36 


3 


57 


4 


37 


4 


58 


5 


40 


5 


59 


6 


41 


6 


60 


7 


42 


7 


61 


8 


43 


8 


62 


9 


44 


9 



ttcOBOL record mark 



I 



I 



CONTROL DATA 
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